home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Virtual User 1.0 / Virtual User / InstallVUHelp next >
Text File  |  1991-01-25  |  1KB  |  39 lines
  1. #  InstallVUHelp script
  2. #
  3. #   This script is designed to install VU Help information into the MPW.Help
  4. #    file of the MPW 3.0 release or later.
  5. #
  6. Set SavedCaseSensitive ""
  7. Set SavedCaseSensitive {CaseSensitive}
  8. Set CaseSensitive 0
  9. If `Exists "{ShellDirectory}MPW.Help"`
  10.     Open "{ShellDirectory}MPW.Help"
  11.     Target "{Active}"
  12.     Find •
  13.     Find /•∂t≈VU∂t∂t∂t∂t∂# Virtual User test tool/ ||
  14.         Begin
  15.             Replace /•∂t(≈)®1UserVariables≈∂n/Δ "∂t®1VU∂t∂t∂t∂t∂# Virtual User test tool∂n"
  16.         End #If not already installed
  17.     Find /•VU∂t∂t∂t∂t∂# Virtual User test tool/ ||
  18.         Begin
  19.             Find /•UserVariables/
  20.             Find /•-/
  21.             if `Exists VU.Help` != ""
  22.                 catenate VU.Help > "{Target}".§
  23.             else
  24.                 set exit 0
  25.                 Set helppath ""
  26.                 Beep
  27.                 (Set helppath `getfilename -m 'Find help file VU.Help'`) ∑ dev:null
  28.                 set exit 1
  29.                 if "{helppath}" != ""
  30.                     catenate "{helppath}" > "{Target}".§
  31.                 end #if helppath dialog not cancelled
  32.             end #if VU.Help exists
  33.         End #If not already installed
  34.  
  35.     Save "{ShellDirectory}MPW.Help"
  36.     Close "{ShellDirectory}MPW.Help"
  37. End #if MPW.Help exists    
  38.  
  39. Set CaseSensitive SavedCaseSensitive